home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Sep / di9809cd / TelevisionLIB.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-12  |  935b  |  37 lines
  1. unit TelevisionLIB;
  2.  
  3. interface
  4.  
  5. //
  6. //  Shared memory structure definition
  7. //
  8. type
  9.   PTELEVISION_SMEM = ^TTELEVISION_SMEM;
  10.   TTELEVISION_SMEM = record
  11.     Power : LongInt;
  12.     Channel : LongInt;
  13.     ClosedCaptioningEnabled : LongInt;
  14.     SleepTimer : LongInt;
  15.     TimeOn : LongInt;
  16.     ClosedCaptioningWordsPerSecond : LongInt;
  17.   end;
  18.  
  19. //
  20. //  Offset definitions for Objects and Counters
  21. //
  22. //  These "relative" offsets must start at 0 and be multiples
  23. //  of 2 (i.e. even numbers).
  24. //
  25. const
  26.   Television                                      = 0;
  27.   TelevisionPower                                 = 2;
  28.   TelevisionChannel                               = 4;
  29.   TelevisionClosedCaptioningEnabled               = 6;
  30.   TelevisionSleepTimer                            = 8;
  31.   TelevisionTimeOn                                = 10;
  32.   TelevisionClosedCaptioningWordsPerSecond        = 12;
  33.  
  34. implementation
  35.  
  36. end.
  37.